home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Demo's / magic-mac-121-demo / MAGIC_C / DEMOS / EYES.PRG < prev   
Text File  |  1994-11-27  |  11KB  |  114 lines
  1. `'≤KR#¸&‚'≤N˘`@----------------   Pure Pascal  for Atari STe/TT  Version 1.0    (c) 1992 Pure   Software GmbH  ----------------3¿g∏`Bπg∫Nê yg∫ fÓJπg¬gaHaV ygæN–
  2. Runtime error  at offset $0123456789ABCDEFHP?<    NA\ONuOÔˇˆA˙ˇ¿aˇÍ09g∏r Oa OpB0aˇŒ&yjJJ´ g0A˙ˇ°aˇ∫&9g¬ñ´8<Èõ¿|;ê??<NAXOQÃˇË?<NAOÔ Nur&H  fr&o¡jj¡g∂ + –´–º*@–´€À,UCÌ#…gŒ"k€È"¬<¸*AYM#ÕjR.M// ?<?<JNAOÔ #ÀjJpr+ÄgÑ≤<fH k, AfE˙"Htµ    V ˇ¸gJf¸Jf‚`ZARGV=Jf¸XO$I`JgFR@Jf¸HRaX$I`ÏAÎÅ"HB0≤< c≤<"fÚrJg "fˆ`‰B(ˇˇR@HQ"HJf÷*â3¿jNJ9jjg˙Bß?< NA\O xÚ"(≤® e\$<≤∏dz¥∏et≤∏ dn¥∏ eh≤∏db¥∏e\≤∏dV¥∏eP≤∏dJ¥∏eD≤∏d>¥∏e8≤∏ d2¥∏ e,`0≤∏e$≤∏ e≤∏e≤∏e≤∏e ≤∏e≤∏ dB9jj/?< NA\O#¸xj.#¸~j2#¸íj6#¸òj:#¸ûj>#¸§jB#¸™jFaû#¸ˆgæHyäN÷0<£`0<§r;ˇkB/o
  3. `:0<•`40<»`.0<…`(0<◊`"HP o P@¿e P@ˇb
  4.  _/9jFNu _0<®Nh"ygŒ±…b0< Na#Ôg¬BgHz?<Ns`¸ê?9g∏?<LNAJ9jjg~p yj.av#»j.p yj2ad#»j2p yj6aR#»j6p yj:a@#»j:p yj>a.#»j>p yjBa#»jBp yjFa
  5. #»jFNuHÁĆ>ºNMPO @$_NuHR!|Ï1|◊∞!|ÄEËÆ!JAË4pxr∞d2E˘˛`ÚQ…ˇ¯B$_Nu2<◊∞0(∞Ag*¿A∞AfHPa _JygΔf ( g"@Në3¿gΔNuJygΔf"0(∞|◊∞gÏ∞|◊≤f (g
  6. "@Në3¿gΔNu0(¿|◊∞∞|◊∞f∫HS&H k◊∞gaˇ~Rkp'@'@ 7@¨ +g "@ KNë3¿gΔ&_Nu0(¿|◊∞∞|◊∞frHS&H k◊∞g + g
  7. "@Në3¿gΔTkp'@'@ 7@¨ +g "@ KNë3¿gΔ&_Nup¿|ˇ#◊g¬`˙ír;Nu    
  8.  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~ÄöêÉéÖèÄàâêãåçéèêííìôïñóòôöõúùûü†°¢£••¶ß®©™´¨≠ÆØ∞±≤≥¥µ∂∑∏π∫ªºΩæø¿¡¬√ƒ≈Δ«»… ÀÃÕŒœ–—“”‘’÷◊ÿŸ⁄€‹›fifl‡·‚„‰ÂÊÁËÈÍÎÏÌÓÔÒÚÛÙıˆ˜¯˘˙˚¸˝˛ˇpJ@k˙ h◊≤eHÁ&H(I6xñc`p aΔQÀˇ¯`a∫QÃˇ¯JygΔf (g
  9. "@Në3¿gΔ KLflNuC˙`ˇ†
  10. JygΔfn"( ≤®b2(¨f* (gHP"@Në _3¿gΔfFJ® f˨˨`2"("h®¨g1ˇ`
  11. 1RÅ!A∞<gÃ∞<gÃ(¸¨Nup`ÿQ»ˇ¸BNuJygΔf0"h"(ÄRÅ!A (SÄ≤Äe (gHP"@Në3¿gΔ _NuRHHPJ@l
  12. JAg¸-D@C˙&∞Ye¸2)ˇ˛t    êAU ˇ¸–A˚ 2fÓ"_ êâNu'Ëd
  13. 09876543210ø˘gŒcNu?@¿f
  14. TO0< `˝P0Nua
  15. 3¿gΔNuJÄlD@ê| ∞|l–@0; `p`pNuHRHS&Hp'@'@'@ 0+∞|◊±g$<
  16. x'Bê|◊≤f2<<`'|
  17. 6'|
  18. Jp`7|◊≤2<=J+4gl$+4¥ºNULgV¥ºAUXgPRNg†¥ºCONgDƒºˇˇˇ¥ºLPTgv¥ºCOMgX'|
  19.  ?Hk4?NAPOJÄl aˇ 7|◊∞`6Äp&_$_Nu k◊±gp$<
  20. ÿ'B'B`‹p'|
  21. ¶B´`Ã+7î<1SbúJ+8fñp`+7î<1UbÜJ+8fÄp'|
  22. x`òHSHR&H??<>NAXOJ@f7|◊∞p$_&_Nua˛v`Ùa˝,∞<
  23. g˨pNuHRHP/(/(??<?NAOÔ  _$_JÄk˛>!@ B®pNuHRHP/(/(??<@NAOÔ  _$_JÄk˛B®B® pNuHPaˇ† _J@f$"( ≤®g"hºR® A˘ia¸ÜpNuHRHP"h (”¿B`J!fº Q»ˇˆHQ?<    NA\O _$_B®B® pNu3¸fgΔNu3¸ggΔNu3¸igΔNuByjhByjPA˙p,"@ "àA◊ÚÄ3¸@@jP"Ä`"Äp"@ "º t1¸˙B3¸ÄÄjP"ÄO–Nu/
  24. Hzˇ∞?<&NN\O$_Nu5|ˇÚ$Ap"
  25. E¯˙P jˇW»ˇ¯5|Hˇ˙ jñ ˇW»ˇ¯$ê$®$® jˇW»ˇ¯5Bˇ˙ jñ ˇW»ˇ¯$ë$©$© jˇW»ˇ¯5|hˇ˙ j≤ ˇW»ˇ¯fé í!R!R$ANu5|ˇÚ$Ap"
  26. E¯˙P jˇW»ˇ¯5Bˇ˙ jñ ˇW»ˇ¯$ê$®$® jˇW»ˇ¯5|hˇ˙ j≤ ˇW»ˇ¯f≤"í#R#R$ANuJ9jPoÚ@Ú'h0flTè fl flNu2<@JÄg@jDÄÇ|Ä∞ºˇˇbH@í|∞ºˇˇˇb·àQA∞ºˇˇˇbÈàYAJÄkSA–Äj˙0¡ ¿BêNuBA`ÙsqrtgÿnJ@j–HzˇÏa¯NuJ9jPo/(/(Bg?ÚH2!Úh3Q2¡Nug4<H`˛¸a(j¥J@kºJÅka ∫HÁvx*HE‚He@ˇ‚E`@ ‚ME@‚â‚í‚ì.é≈h~ˇ⁄G‚MEÄ.é≈h~ˇ⁄G‚MEÄ.é≈hzˇ`HG,<HFå≈>HEBE⁄á‚ç≈>Œ«,HFÃΔîáìÜ.HGŒ≈,HGBGBFHFîáìÜîáìÜj ‘Ö”ÑSÖ‘Ö”ÑkÙf
  27. JÉf|`&‚I‚í‚ì"HA,å¡h,BFîÜHF‘Ü|ˇ`$BBHB6HCBBHB>ŒΔñáïDjSF÷Ö’Dk¯.é¡h.BGñáHG÷á~ˇHC4BC`&BC2¬«ñÅïDjSG÷Ö’Dk¯÷É’B2¬¡ñÅïDjJGfr2“ÅSÅ÷Å’DSFSG÷Ö’D÷Ö’Dk‚HF<9jig( ɡ˛c29jigj9jig``RJBjÊSÜõÑ`‡ñÖïDkN ɡ˛b:÷Ö’D"HA¬Δ.HABABGHG“ÅfláDÅóáïD.Œ«íáóÑïD9jif∂íÜóÖïDo RÜ€Ñf≈R@@ˇ2¿"≈"Ü]ILfl¯Nu2 H¡¬|ˇí|@lDA≤|b
  28. ‚®JÅjDÄNupNufJÅjDÄk0<Õaˆ§$(0r“@“Ag8"(jNufJÇf
  29. @ÄD¸NuH¿@ˇa    rJ@j‚â‚íR@f¯–Ä‚PD¸Nu"(fJÇfJ@kD¸NuD¸Nu¡D¸Nu2¿"¡"Ç]INur2¸ˇˇ`
  30. r`rˇ2¸ˇ"¡"Å]INua‰p`
  31. aÊp`a‰pHQ//aÇPè.üNu@≠¯TX¢ªJõ?˝ö öÑ˚œ˜ô?˛±r˜—œy¨@…⁄¢!h¬5?ˇ…⁄¢!h¬5?˛…⁄¢!h¬5?ˇÄ@Ä@†NaN-INF+INF(C)Xmath by d'ART∞|b –@0;
  32. gaıjNuœ»ÕaddC˙ˇúJ9jPo(0(ˇ˛1ÚH0Ä/)/)Bg?ÚH(Úh0ò1@ˇ˛Nug 4<H(`˙»C˙ˇ^HÁHzî`êC˙ˇNJ9jPo(0(ˇ˛1ÚH0Ä/)/)Bg?ÚH"Úh0ò1@ˇ˛Nug 4<H"`˙zC˙ˇHÁHzF`J∑Äk  "$J@jfi‚â‚íR@`Ú±ÉjÓHzˇ@a¢`–`Ú``Ó`Ë`ÿ`÷`Œ`Δ` `»`Ã,∑Ü<úCnDFf
  33. ≤Ñb f∫Çc …AÀBv F    cJ FAczxv`J F!c
  34. ÜÖ*xF  FcÜE:BDHDHEF F    c
  35. ܇ù‡åQFJÉg6<ˇSFk
  36. ‚å‚ï‚SQŒˇ¯JÜkl‘Ö”Ñd‚ë‚í‚SR@9jif( CÄb f“g RÇdƒRÅdæ¡R@`¥JCgÆ9jig¢9jifJÄk `êJÄkä`æîÖìÑkgòS@‘Ç”Å÷CdSÇdSÅ9jif4 CÄbfNf JÇfD≤ºÄf<SÇd8SÅk@gXtˇrˇS@g2t˛`.JCg9jigÿ9jifJÄk`»JÄkƒJÅkS@‘Ç”Åj¯ @ˇe4Hz˝§Hz8 @¿bn`0BêB†B`9jig9jifP`
  37. –Ä‚P Ç!1LflxNuJ9jPoD/(/(Bg?ÚH/)/)Bg?ÚH8ÚíÚîÚÅD¸NuD¸NuD¸NuD¸NuHÁHz"`ÙD¸`H`¯`ˆ`Ù`` `
  38. ``2NqNqNqJ@j‚â‚íR@f¯JÄjFÅFÇF@JCj‚å‚ïRCf¯JÉjFÑFÖFCîÖìÑëCLflxNudivC–A˙¸Z/ / ? A◊aFA—0fl fl ü]HNuJ9jPo(0(ˇ˛1ÚH0Ä/)/)Bg?ÚH Úh0ò1@ˇ˛Nug4<H `˜fHÁ0HzV`:Hzˇòa∞`‡∑ÄÄÄBêB`!`ŒHzˇza†`¬∑ÄH@ÄFBêB†1`≤`ƒ`¬`¿`æ`Ê`‰`ƒ`∂`¿`æ`ŒóÀ.∑á>ûCG?˛∏Åbf∫Çb RG‚â‚íd6|Ä/|$F,HF.éΔh.BGíáHG“á~ˇ`"BAHA,HFëpîÜìÄHAHB024 óÀ6Δ«<ë?~îÜìÉëGj
  39. SW‘֔їGdˆ,
  40. QŒˇ¶,HF.éΔh.BGíáHG“á~ˇHA`"BAHB02BB6Δ«|íÉëFjSG“Ñ—Fd¯HG>HG9jif,‚éúÅb†HFRFkåHz``, ÅˇˇcÚ9jig~9jifJØkb`lJØkf`X//&HCΔ«0BCHCH@B@4ƒ«r–Ç◊Å"$îÄìÉdSG‘Ö”ÑNu9jif‚å‚ïöÇôÅkfg`
  41. JÅfäJÇg`Ñ,HFRádRÜ`,HF  @˛c"$Hz˝¬a¯`
  42. –Ä‚P á!1Lfl ¯NumulJ9jPo(0(ˇ˛1ÚH0Ä/)/)Bg?ÚH#Úh0ò1@ˇ˛Nug4<H#`ı,HÁHzZ`∑ÄÄÄBêB`!`‡Hzˇ¢ad`‘∑ÄH@ÄFBêB†1`ƒ B@HzˇÇab`¥`“`–`Œ`ÿ` `‘`Δ`≤`∞`Ã`¨.∑á>fiCG?˛/p<Ã6Δƒ>Œ≈‹á◊ÄHAHBHDHE>Œ≈‹á◊Ä?<BCHCHF.HGŒƒ‹á◊Ä.HGŒ¬‹á◊Ä.HGŒ≈‹á◊Ä.HGŒ¡‹á◊Ä.HGŒƒ÷á.HGŒ¡÷á—Ä?<6HCHFp>Œƒ‹á◊Ä>Œ≈‹á◊Ä>Œƒ÷á(".JÉkfiá9jigÑJág
  43. j ᡲc a0JÑfJág™9jigû9jifJÅkt`åJÅkÜ`h/"HA¬≈.HGŒ¬pfiÅ—@H@HG0BGHBHE2¬≈tfiÅŸÄ›Ç◊Çp"JÉk
  44. fiáŸÑ›Ü◊ÉSANu áÄb á˛c0a¨ ÑÄb f$JáfgJÉkÿÑ›Ü◊ÉSARÜ◊Äf√RA` JÉkÿÑ›Ü◊ÉSA Aˇe "$Hz˝ÿa∏`
  45. “Å‚Q Ü!1Lfl¯Nu6C`6*)<<ˇH√ΔF∂Fg6()kfJÖfUó`SC⁄ÖŸÑj¯0"$H¿¿F∞FgJÅjNuf4JÇf0]óNu()fJÖfYó`‘JÅfJÇf
  46. ó Nu\HóNuJÅkS@‘Ç”Åj¯Nu0<ˇrˇtˇv`ˆ∑ÄH@ÄFrtv`Ê<<ˇ6(ˇ˙ΔFgF Cpn @∞b:H@@ˇ9jig 9jig 69jhÏ[±Ck
  47. S@rˇtˇ`írtv`î @ˇÄn0H@@Ärtv9jigv9jigl89jhÏ\±Dj`t`Pvx‚â‚í‚ì‚îR@fÙ–Ä‚P9jifÉg,` 9jig ÜÑ9jigJ@k`J@j
  48. JÉgRÇdRÅ Ç!1.üNuv]H//?HW//0aˆfPO0fl fl ü]H.üNuJ˘jkfêA˘jVByg∏Bπg∫Bπg¬BygΔBπg»¸gÃBP!H!H#»j`BπjdB9gÕNπ zJyjPg¸gÕ |g“C˙*aÍ |g“aÍ¥ |iC˙aÈ˙ |ia͉NuC˘nÓHRt"¬"¬2Ç…ˇ˘"<qfi0<»NBA˘p20$_Nu"<`ˇÃ"<
  49. `ˇ¬HQC˘o*#H 2¿2¡2¬"Ô"Ô "Ô"Ô"Ô"Ô2Ø "<aˇä"
  50. "_2òEÔ"Z2ò"Z2ò"Z2ò"Z2ò"Z2ê$ANuHQHP"<MaˇZ"_2ò"_2ò"o2ò"o2êNuHQHP"<Oaˇ6"_2ò"_2ò"o2ò"o2êNu3¿o*#»qJ"<N`ˇ
  51. HQHPC˘o*2¿2¡2¬"Ô 2Ø"<la˛Ë"_2ò"_2ò"o
  52. 2ò"o2êNu3¿o*"<f`˛¬C˘o*2¿2¡2¬"Ø"<d`˛®3¿o*"<g`˛òC˘o*2¿2¡2¬"Ø"<e`˛~3¿o*"<k`˛n3¿o*C˘qˆ#…qJNπ‹"<#`˛LHQHPHπo*"<ha˛6"_2ò"_2ò"o2ò"o2êNuC˘o*2¿2¡2¬"Ô2Ø"<i`˛A˘jl1@ 0¡1BHB0Çps"<q HRNB$_A˘kí0NuHRHQE˘jl5Q C˘⁄"    #H o #H AËZ#H$ºd5| psNB _0πjx$_NuA˘l™0¡0¬ Ør $<1|˝»`ˇpret`ˇhA˘l™0¡0¬Bò0ÔBPr $<1|˝¬`ˇDC˘l™"ÿ"ê3A˝‹2<Å$<`ˇ(3¡jär t`ˇ3¡järht`ˇ 3¡järt`˛˛3¡järt`˛C˘l™"ÿ"êrr$<`˛⁄jljäkíl™mÃHÁ8J˘rGfjNπA˘nÓC˘qfiE˘jlG˘q "àIË#LIË<#LIËD#L IË\#LAËú#H&äAÍ'HAÍ>'HAÍ&'H AÍ`'HLflNu≤@m0Nu≤@n0Nu/
  53. $H 
  54. JÄjġˇH@H¿$_Nu/
  55. $H 
  56. ¿ºÄˇˇj¿ºˇˇg塡$_NuHÁ0$I&H02aˇ™60*2+aˇú80–j2“kaˇí:0*–j2+“kaˇ|4É5D2íC5A2íD5A∂El∏@lp`pLfl 8Nu0<ë»NπîNu0<ë»NπîNu/
  57. E˘r\ Jp    0¸Q»ˇ˙5|HyrTHyrR |rN"|rPNπLPè3¿rH4πrH3˘rHrJHyrr"|rJ JNπfiXèp$_Nu09rJNπDNu//(&29rJ√@Nπ∂09rJ2Nπö09rJ2Nπ®(&NuNVˇ‡HÁ *.(<.$n
  58. E͡¯06÷EêCH¿AÓˇˆNπ h n
  59. CÓˇˆAˡӠŸ Ÿ0Ÿ08*ÿFêDH¿AÓˇˆNπ h n
  60. CÓˇˆAˡ‰ Ÿ Ÿ0Ÿ n
  61. AˡÓCÓˇˆ"ÿ"ÿ2ÿAÓˇˆ"HNπ0 n
  62. Aˡ‰CÓˇÏ"ÿ"ÿ2ÿAÓˇÏ"HNπ0CÓˇÏAÓˇˆNπ‚AÓˇˆCÓˇ‚Nπ Í n
  63. CÓˇ‚Aˡ⁄ Ÿ Ÿ0Ÿ n
  64. Aˡ⁄C˙ÚNπ*gåAÓˇˆ ¸@êBòBX n
  65. CˡÓAÓˇˆNπ0 n
  66. Cˡ⁄AÓˇˆNπˆ n
  67. CÓˇˆAˡ– Ÿ Ÿ0ŸAÓˇˆ ¸@òBòBX n
  68. Cˡ‰AÓˇˆNπ0 n
  69. Cˡ⁄AÓˇˆNπˆ n
  70. CÓˇˆAËˇΔ Ÿ Ÿ0Ÿ` n
  71. Aˡ–BòBòBX n
  72. AˡΔBòBòBX?<
  73.  n
  74. Aˡ–Nπ ÷@? n
  75. AˡΔNπ $‘D09rJ2NπLTèLfl¯N^NuNVˇ¨HÁ<&EÓˇæGÓˇ¯IÓˇÆK˘rLJUoËHkHk KCÎ0rNπhPèHjHj JCÍ0r NπhPèHnˇ∂Hnˇ∏AÓˇºCÓˇ∫NπpPè`z K"Ja¸rJgR08Ä2*9A–jS@9@“jSA9A09rJr LNπpJCfva¸≤prta˝009rJ LNπƒprta˝?<#?<2“|4+‘|(09rJNπ$Xè?<#?<2“kí|4+‘|(09rJNπ$Xèa¸209r˙∞nˇºf09r¸∞nˇ∫fJCfäa¸prta¸ú/?<(09r˙29r¸ta¸º\è/?<(4+î|09r˙29r¸a¸ú\èprta¸X/?<(0.ˇº2.ˇ∫ta¸|\è/?<(4+î|0.ˇº2.ˇ∫a¸`\èa˚åHjHj JCÍ0r NπhPèJjoJjn˛|3Óˇºr˙3Óˇ∫r¸Lfl<N^NuNVˇ¯JyrLnp–yrX?p–yrV?p rtNπÚXè3¿rLJyrLoÓA˘r‰C˙ËpŸQ»ˇ¸BgBg |rÂa˙\? |rÂa˙8409rLrNπî\èa˙ÿ yˇˇr˛f`Hnˇ˛Hnˇ¸?<d?<d?<dAÓˇ¯CÓˇ˙pr
  76. tdNπ™OÔ09rVênˇ¸J@jR@‚@3¿r˛09rXênˇ˛J@jR@‚@–|3¿s?<d?<d09rL29r˛49sNπXèa˙:`BgBgBg09rLr
  77. tNπî\èN^Nu Eyes NVˇ¸0@∞|b$–@0;N˚,6R∏Ïpa¸l`‰BgBgBg09rLr
  78. tNπî\è`»0(∞yrLfBHnˇ˛Hnˇ˛ |r˛"|s09rLrNπhPè09rLNπ‚09rLNπ ByrLJ9g∂gp`n`j3¸r¯``0(∞yrLfT?(?( ?(
  79. 4(09rLrNπî\èpa˚¥`,0(∞yrZf a˝≤3¸0r¯`0(∞yrZfByrLpN^NuNVˇ‰//xHnˇ‰HnˇÊHnˇËHnˇÍHnˇÏBg?<dBgBgBgBgBgBgBgBgBgBgBgAÓˇCÓˇÓ09r¯rtNπÚOÔ.6pNπ6p¿CJ@g
  80. AÓˇa˛X8p Δ@JCgpa˚pNπ6JDoˇ~0(&N^Nu/J˘sfÆNπNπÓNπË6 Cˇˇgía¯2JgÇ09rJrNπå3˘rrrV3˘rtrX3¸ˇˇr˛3¸ˇˇr˙3¸ˇˇr¸J9g∂f0A˙DNπF3¿rZ3¸r¯`pë»Nπî3¸0r¯a¸Ra˛¿S@f¯a¯Nπfi&Nu  Pure Pascal Eyes z
  81. NB"ñ®
  82. N
  83.  
  90. .6$F0$P(`0^&jZ88ΔH
  91.  
  92. ˙Çé
  93. L∏N8 4B
  94. @
  95. Ã^*
  96. J`@& í
  97. 4
  98. & J
  99. 
  100. 
  101.  "†4& 
  102. .
  103. ($
  104. 
  105. 4(0$$2B
  106. 0:
  107. &" &^
  108. 
  109.  *
  110. 
  111. l
  112.   N
  113. (
  114.